Sources Esope | Cast3M

kverif
C KVERIF    SOURCE    CB215821  16/04/21    21:17:38     8920
      SUBROUTINE KVERIF (SHC3D,SKBUFF)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C----------------------------------------------------------------------
C Calcul des facteurs de forme en 3D
C Sp appele par FACGEN
C    VERIFICATION DU BILAN AUTOUR D'UNE DIRECTION DONNEE
C
C----------------------------------------------------------------------
-INC TFFOR3D
 
      F = 0
      NC = 0
      DO 500 NF = 1,KFC
      DO 501 I = 1,NRES
      DO 502 J = 1,NRES
         IF (PSC(NF,I,J).GT.-1.) THEN
           NC = NC + 1
           F = F + PSC(NF,I,J)*G(I,J)
         ENDIF
 502  CONTINUE
 501  CONTINUE
 500  CONTINUE
      ERR = ABS(1.-F)
      IF (ERR.GT.0.01.OR.KIMP.GE.4) THEN
           WRITE(6,1000) NC,F
 1000 FORMAT(1X,'VERIF: NCEL ',I6,' F ',F10.5)
      ENDIF
      RETURN
      END