SUBROUTINE INPUT 
REAL m,LM,nN,IN,Ist,La,Kq
CHARACTER wgco*3,sks*9
COMMON /IN0/OMGs,nN,IN,TN
COMMON /IN1/PN,UN,m,f,p,cosfi,eff,Tpo,Ist,Tst
COMMON /IN2/D1,Di1,La,g,g12,Q1,Q2,Di2
COMMON /IN3/b01,h01,b1,ALFAI,R1,h12
COMMON /IN3A/sks
COMMON /IN4/Lv,b02,h02,br1,br2,hr2,ALFA2,AR
COMMON /IN5/LE,a,Ns,Nt1,d11,Nt2,d12,d,y
COMMON /IN5A/wgco
COMMON /IN6/Lev,magnet,Br0,Hc0,hM,bM,LM,ROUm,SIGMAO
COMMON /IN7/t,pfw1,ps1,Kq
PAI=4*ATAN(1)
OPEN(3,FILE='INPUT,DAT',STATUS='OLD')
 READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,*) PN,UN,m,f,p,cosfi,eff,Tpo,Ist,Tst
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,*) D1,Di1,La,g,g12,Q1,Q2,Di2,sks
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,*) b01,h01,b1,ALFA1,R1,h12
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,*) Lv,b02,h02,br1,br2,hr2,ALFA2,AR
READ (3,5) term
READ (3,5) term 
READ (3,5) term
READ (3,5) term
READ (3,*) wgco,LE,a,Ns,Nt1,d11,Nt2,d12,d,y
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,*) Lev,magnet,Br0,Hc0,hM,bM,LM,ROUm,SIGMAO
READ (3,5) term 
READ (3,5) term
READ (3,5) term
READ (3,5) term
READ (3,*) t,pfw1,ps1,Kq
READ (3,5) term
CLOSE(3)
IF (LE.EQ.1.OR.LE.EQ.2.OR.LE.EQ.3) THEN
   y=Q1/2/P
END IF 
IF (Nt1.EQ.0.OR.d11.EQ.0)THEN 
   Nt1=0
   d11=0
ELSE IF (Nt2.EQ.0.OR.d12.EQ.0) THEN
   Nt2=0
   d12=0
END IF
OMGs=f/p*2*PAI
nN=60*f/p
IF(wgco.EQ.'y'.OR.wgco.EQ.'Y')THEN 
  UN=UN/SQRT(3)
  wgco='Y'
ELSE 
  wgco='J'
END IF 
IN=PN/(m*UN*eff*cosfi)*1000
TN=PN/(2*PAI*nN/60)*1000
RETURN

END

E:\Fortran安装\安装\Projects\永磁电机\yongci.for(93): error FOR3309: undefined label 5

这个undefined label 5指向的却是最后一行ＥＮＤ