Télécharger fonr.eso

Retour à la liste

Numérotation des lignes :

  1. C FONR SOURCE CHAT 05/01/13 00:06:20 5004
  2. FUNCTION FONR(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. FR1(COST,SQA,SQU)=-COST*(SQA-SQU)
  10. CALL ARGUME(T)
  11. F1=FR1(COST,SQA2,SQU2)-FR1(COST,SQA1,SQU1)
  12. F2=FR2(SQA2,SQU2,LD2)-FR2(SQA1,SQU1,LD1)
  13. FONR=F1+F2
  14. RETURN
  15. END
  16.  
  17.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales