(#1 (permalink))
zitrol zitrol
 
: 2
() : 0
0 () 0
: 14.11.2002
 fortran77, - 22.02.2003, 17:09

- ( ).
:
fortran77?
FUN, G , , , ?
- 77 - ( )
( BASE) - - ???
( ) - ( - ....)

:


PROGRAM PAR
C PAR 23-AUG-88 *** SPA ***
C () .
C
C : BASE
C : FUN, G()
C INTEGER Q, JJ1
REAL M, KSI, J,MI
BYTE YES, YES1,YES2
DIMENSION X(40), Y(40), XS(40), YS(40), XT(40), YT(40), *XTS(40), YTS(40), XO(40), YO(40), ALLAM(5), GGAM(5), *XP(5,40), HLAMR(5), XTTS(40), YTTS(40)
REAL MIN
DATA XPMIN0, XPMAX0, YPMIN0, YPMAX0/-90.,90.,-90.,90./
C PAR *** SPA ***
C PER=3.1415926/180
C 1
TYPE *,''
TYPE *,' - 1'
TYPE *,' - 2'
ACCEPT *,JPR
GOTO(51,52)JPR
1
51 TYPE 200
200 FORMAT(2X,' ')
TYPE 1
1 FORMAT(1X,' :',*)
ACCEPT *,M
TYPE 2
2 FORMAT(1X,' D:',*)
ACCEPT *,D
TYPE 3
3 FORMAT(1X,' DA:',*)
ACCEPT *,DA
TYPE 4
4 FORMAT(1X,' OMEGA:',*)
ACCEPT *,OM1
TYPE 5
5 FORMAT(1X,' TAY:',*)
ACCEPT *,TAY1
RB=117.
C
OM=OM1*PER
A=A
TAY=TAY1*PER
C
C
C
HU=2.25*M
A0=DA/2.+(DA/2.-HU)*COS(TAY)
KSI=ATAN(TAN(TAY)/COS(OM))
AW=A0*COS(KSI)/COS(TAY)
E=ACOS(SIN(OM)*COS(TAY))
C=AW*TAN(KSI)/SIN(E)
G=C*SIN(E)
G2=G-(DA/2.-HU*COS(TAY))*TAN(TAY)
F10=ASIN(2.*G2/D)
K2=C*COS(E)
FIS=K2/PB
FI0S=FI0+FIS
FI0S1=FI0S/PER
6 PRINT(15X,':',/,1X,'FI0S=',F8.3,'(.)')
JT=5
GOTO 60
C
C 2
C
52 CALL BASE(JJ1)
JPIC=0
TYPE 302,"17
302 FORAMAT(1X,A1)
IF(JJ1.EQ.1)GOTO 310)
1000 READ(2,*,END=310)D,DA,AW,OM,E,JT
READ(2,*,END=1603)XTS,YTS
TYPE 602,(JT1,XTS(JT1),YTS(JT1),JT1=1,JT)
602 FORMAT(2X,13,'XTS=',F8.3,1X,'YTS=',F8.3)
GOTO 301
310 TYPE 61
FORMAT(1X,' D :',*)
ACCEPT *,D
61 TYPE 62
62 FORMAT(1X,' DA:',*)
ACCEPT *,DA
TYPE 63
63 FORMAT(1X,' AW:',*)
ACCEPT *,AW
TYPE 64
64 FORMAT(1X,' OMEGA:',*)
ACCEPT *,OM1
OM=OM1*PER
TYPE 65
65 FORMAT(1X,' E:',*)
ACCEPT *,E1
E=E1*PER
TYPE *,' '
ACCEPT *,JT
1603 DO 81,JT1=1,JT
TYPE 66,JT1
66 FORMAT(3X,'YTS(',12,')=',*)
81 ACCEPT *,YTS(JT1)
WRITE(2,*)D,DA,AW,OM,E,JT
WRITE(2,*)XTS,YTS
301 PB=DA/(2.*TAN(OM))
TYPE 561
561 FORMAT(/5X,' ')
TYPE 562
562 FORMAT(/10X,' GAM=',*)
ACCEPT *,GAM
GAM=GAM*PER
TYPE 563
563 FORMAT(/10X,' LAM=',*)
ACCEPT *,ALAM
ALAM=ALAM*PER
C
C
C 2


60 CONTINUE
C .....

____________________
!
Ads