转化成C代码 SUBROUTINE PREDRAWBD1RAISEDRAWBDDBFDBSDBX1DBY1DBZ1DBX2 & DBY2DBZ2KB IMPLICIT REAL8A-HO-Z DIMENSION DBFKBDBSKBDBX1KBDBY1KBDBZ1KBDBX2KB &

#include <math.h>

void PREDRAWBD1(double* RAISE, double* DRAWBD, double* DBF, double* DBS, double* DBX1, double* DBY1, double* DBZ1, double* DBX2, double* DBY2, double* DBZ2, int KB){ double DX, DY, DZ, DL; RAISE = 0.0; DRAWBD = 0.0; for(int I=0; I<KB; I++){ DX = DBX1[I] - DBX2[I]; DY = DBY1[I] - DBY2[I]; DZ = DBZ1[I] - DBZ2[I]; DL = sqrt(DXDX + DYDY + DZ*DZ); RAISE += DLDBS[I]; DRAWBD += DLDBF[I]; } }