Sources Esope | Cast3M

hhoc3m
C HHOC3M    SOURCE    OF166741  24/06/19    21:15:04     11942          
 
C======================================================================C
C= INTERFACE ENTRE CAST3M (FORTRAN-ESOPE) ET BIBLIOTHEQUE HHO (C++)   =C
C=                                                                    =C
C= SOUS-PROGRAMME COMPLET ECRIT EN FORTRAN MODERNE 2008 (.F90)        =C
C= ICI VERSION FORTRAN "F77" POUR TEST                                =C
C======================================================================C
 
      SUBROUTINE HHOC3M (charfct, charhho,
     &                   charlib,  maxlib,
     &                    tabint,  maxint,
     &                    tabflo,  maxflo,
     &                      iret, charerr)
 
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
 
-INC PPARAM
-INC CCOPTIO
 
      CHARACTER*(*) charfct, charhho, charlib, charerr
 
      INTEGER tabint(1:*)
      REAL*8  tabflo(1:*)
 
      IF (maxlib .LE. 0) THEN
        moterr = 'HHOC3M interface: not implemented'
        CALL ERREUR(-385)
 
        iret = 5
        charerr = "Cast3M a ete construit sans le support pour HHO"
        return
      END IF
 
      moterr = 'HHOC3M: library found but interface not implemented'
      CALL ERREUR(-385)
 
      charerr = 'HHOC3M interface: not implemented'
      iret = 1
 
c      return
      END