Skip to content
Snippets Groups Projects
Normal view Permalink
read_exsegn.f90 117 KiB
Newer Older
WAUTELET Philippe's avatar
Beginning of open source history
WAUTELET Philippe committed
3001 3002 3003 3004 3005 3006 3007 3008 
9002  FORMAT(/,'WARNING IN READ_EXSEG FOR MODEL ', I2,' : ',/, &
             '----------------------------------' )
9003  FORMAT(/,'FATAL ERROR IN READ_EXSEG FOR MODEL ', I2,' : ',/, &
             '--------------------------------------' )
!
!-------------------------------------------------------------------------------
!
END SUBROUTINE READ_EXSEG_n
Show full blame

Documentation | Mentions légales | CGU | Accessibilité : non conforme