1 : C FONZ SOURCE CHAT 05/01/13 00:06:27 5004 2 : FUNCTION FONZ(T) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8 (A-H,O-Z) 5 : COMMON/CMCHAM/ D1,D2,R,A,U,DD1,DD2,LSOMD,LD1,LD2 6 : COMMON/CMARGT/SINT,COST,RSINT,RCOST,RSIN2,XA,XU,XXA,XXU,SQA2,SQA1 7 : +,SQU2,SQU1 8 : LOGICAL LSOMD,LD1,LD2 9 : C FUNCTION FZ1 10 : FZ1(D,XA,XU,SQA,SQU)=D* LOG((XA+SQA)/(XU+SQU)) 10 : CALL ARGUME(T) 11 : IF(LSOMD) GOTO 3 12 : 4 IF(LD1) GOTO 6 13 : 7 IF(LD2) GOTO 8 14 : GOTO 9 15 : 3 F1= FZ1(D2,XA,XU,SQA2,SQU2)*2.D0 16 : F2= FZ2(D2, A, U,SQA2,SQU2,RSIN2)*2.D0 17 : F3= FZ3(D2,XA,XU,SQA2,SQU2,RSINT)*2.D0 18 : GOTO 10 19 : 6 F1= FZ1(D2,XA,XU,SQA2,SQU2) 20 : F2= FZ2(D2, A, U,SQA2,SQU2,RSIN2) 21 : F3= FZ3(D2,XA,XU,SQA2,SQU2,RSINT) 22 : GOTO 10 23 : 8 F1=-FZ1(D1,XA,XU,SQA1,SQU1) 24 : F2=-FZ2(D1, A, U,SQA1,SQU1,RSIN2) 25 : F3=-FZ3(D1,XA,XU,SQA1,SQU1,RSINT) 26 : GOTO 10 27 : 9 F1= FZ1(D2,XA,XU,SQA2,SQU2)-FZ1(D1,XA,XU,SQA1,SQU1) 28 : F2= FZ2(D2, A, U,SQA2,SQU2,RSIN2)-FZ2(D1, A, U,SQA1,SQU1,RSIN2) 29 : F3= FZ3(D2,XA,XU,SQA2,SQU2,RSINT)-FZ3(D1,XA,XU,SQA1,SQU1,RSINT) 30 : 10 FONZ=F1+F2+F3 31 : RETURN 32 : END 33 :
© Cast3M 2003 - All rights reserved.
Disclaimer