编译问题

[wwj]

如何编译有segment语句的fortran文件,例如:

C AARCTR SOURCE KICH 98/06/30 21:15:01 3239

SUBROUTINE AARCTR(SANGLE,COUR,HI,HE,RI,RE,QB,QH,TMIN,TMAX,
&XP,ZP,AX,AY,AZ)
IMPLICIT REAL*8(A-H,O-Z)
C
-INC CCREEL
C*******************************************************************
C Calcul du potentiel vecteur induit par un arc de cercle de courant
COUR,
C d'axe Oz, de section trapezoidale asymetrique par rapport a xOy:
C - rayons interieur et exterieur RI et RE
C - hauteurs interieure et exterieure HI et HE
C - pentes basse et haute QB et QH
C - extension angulaire TMIN a TMAX par rapport au plan meridien
C xOz contenant le point de coordonnees (X,0,Z)
C ou on calcule le champ (AX,AY,0)
C*******************************************************************
C
SEGMENT SANGLE
REAL*8 TETM(NT4)
REAL*8 TETI(NT4)
REAL*8 DTE(NT4)
ENDSEGMENT
C

谢谢!!