Sources Esope | Cast3M

kfinso
C KFINSO    SOURCE    CB215821  25/04/22    21:15:07     12245          
      SUBROUTINE KFINSO(NF1,NF2,KA,IM,KG)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C Calcul des facteurs de forme en 3D
      DIMENSION KG(2),KA(1),IM(1)
       KK1 = KA(NF1)
       KK2 = KA(NF2)
       IF (KK1.LT.KK2) THEN
         KG(1) = IM(NF1)
         KG(2) = IM(NF2)
       ELSE
         KG(1) = IM(NF2)
         KG(2) = IM(NF1)
       ENDIF
      END