corstr_sisyphe.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\sisyphe\corstr_sisyphe.f
00002 !
00044                      SUBROUTINE CORSTR_SISYPHE
00045 !                    *************************
00046 !
00047 !
00048 !***********************************************************************
00049 ! SISYPHE   V6P1                                   21/07/2011
00050 !***********************************************************************
00051 !
00052 !
00053 !
00054 !
00055 !
00056 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00057 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00058 !
00059       USE BIEF
00060       USE DECLARATIONS_SISYPHE
00061 !
00062       IMPLICIT NONE
00063       INTEGER LNG,LU
00064       COMMON/INFO/LNG,LU
00065 !
00066 !-----------------------------------------------------------------------
00067 !
00068 !
00069 !-----------------------------------------------------------------------
00070 !
00071       RETURN
00072       END SUBROUTINE CORSTR_SISYPHE

Generated on Fri Aug 31 2013 18:12:58 by S.E.Bourban (HRW) using doxygen 1.7.0