C MODE13 SOURCE CHAT 05/01/13 01:47:59 5004 C MODE11 SOURCE MAGN 98/12/23 21:40:54 3405 SUBROUTINE MODE13(LESPRO,NBPRO,NBTEF,N1MAX) C----------------------------------------------------------------------- C Definition des noms de proprietes de materiau et du noms de C type d'elements fini dans le cas d'une formulation NAVIER_STOKES C----------------------------------------------------------------------- C C--------------------------- C Parametres Entree/Sortie : C--------------------------- C C /S LESPRO : Noms des proprietes du materiau autorises C /S NBPRO : Nombre de noms contenus dans LESPRO. C /S NBTEF : =0. C E/ N1MAX : Taille maximale du vecteur LESPRO. C C---------------------- C Variables en COMMON : C---------------------- C C IDIM : Dimension de l'espace (2 en 2D, 3 en 3D) C C----------------------------------------------------------------------- C C Langage : FORTRAN77 C C Auteurs : C C----------------------------------------------------------------------- IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO C CHARACTER*16 LESPRO(*) * *= Noms des proprietes de materiau autorisees * NBPRO = 1 IF (NBPRO.GT.N1MAX) THEN GOTO 100 ELSE LESPRO(1) = 'NEWTONIEN' ENDIF * *= Noms des types d'elements finis autorises * NBTEF = 0 * RETURN * *= ERREUR : Taille d'un des vecteurs LES... insuffisante. * 100 CALL ERREUR(5) RETURN END