Sources Esope | Cast3M

tqua4a
C TQUA4A    SOURCE    OF166741  23/12/04    21:15:17     11800          
C
C ===>  SOUS-PROGRAMME  TQUA4A  PLUS UTILISE    &lt;===
C ===>  SUBROUTINE              NO LONGER USED  &lt;===
C
      SUBROUTINE TQUA4A
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
      RETURN
      END