我学fortran时间也不长，而且我看的是f95，现在试着说一说这段f77，可能有不对的地方，请各位纠正
PROGRAM WR1！程序名
    DIMENSION XT(100),YP(100),Y(3),Y1(3),FK(3),YM(3),YY(3),！依次声明大小为100、100、3、3、3、3的，名称不XT、YP、Y、Y1、FK、YM、YY的数组
    * XX(100),VV(100),RR(100),XX1(100),VV1(100),RR1(100), ！接上一行继续声明，方式与上一行相同
    * XX2(100),VV2(100),RR2(100),AX(100),AX1(100),AX2(100), ！接上一行继续声明，方式与上一行相同
    * AT(100),AR(100),WORK(4,3),FI0(100),PF1(100) ！接上一行继续声明，方式与上一行相同
    CHARACTER*16 FNAME,FNAME1,FNAME2！声明字符串变量 FNAME,FNAME1,FNAME2，长度为16
    CHARACTER*80 TITLE,YN*1,YS*1！声明字符串变量TITLE、YN*1、YS*1，长度为80
    REAL K1,K3,N0,NIOU,LG,KSI1,KSI11,KSI12,KSI2,KK,K4,KD,
    * NIOUH ！声明以上变量为浮点数
    EXTERNAL F1！声明函数F1
    COMMON L,L1,L2,L3,L4,L5 ！声明全局变量L、L1、L2、L3、L4、L5
    COMMON /X0/N,XT,YP ！（把common区间分成X0——A6）声明N、XT、YP是X0区间的变量，以下类同
    COMMON /X1/TG,T4,Q,OMEGA,S,TH
    COMMON /X2/FI,B,HI,PKH2,AL
    COMMON /X3/R0,RG,R4,RH,Q0
    COMMON /X4/QZ,DOJ,GAMAJ,HJ,K3
    COMMON /A1/A0,AP,AFJ,OMEGA1,KSI2,KK,GAMA,C0
    COMMON /A2/AF,PF0,W,K4,N0,KD,NIOUH
    COMMON /A3/F,NIOU
    COMMON /A4/N1,AT,AR
    COMMON /A5/FIMAX
    COMMON /A6/F10,PF1
    CALL MAIN ！在此处调用名称为main的子程序
    WRITE(*,2000) ！第一个*表示输出位置是屏幕，后面那个2000表示输出格式，后面应该有和2000对应的格式
END ！结束
谢谢大家指教

深圳华信群英科技有限公司，目前主要从事软件外包开发、高级软件人才定向输送等业务，面对日益严峻的大学生就业难和IT企业招聘难，自2006以来，与知名通信软件公司正式签订定向输送人才的合作协议，针对想进入软件行业的人员提供企业实训，实训课程采用“2+3”分段教学模式，分为2个月理论强化和3个月项目实训两个阶段，共计900学时。
企业订单委培，内训前签订就业安置协议，100%保证就业。实训结束之后，在华信群英科技及其战略合作伙伴从事通信软件研发工作。欢迎有意向者加QQ：649846168咨询。