impvec.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\impvec.f
00002 !
00046                      SUBROUTINE IMPVEC
00047 !                    *****************
00048 !
00049      &(VEC,NOM,NPOIN)
00050 !
00051 !***********************************************************************
00052 ! BIEF   V6P1                                   21/08/2010
00053 !***********************************************************************
00054 !
00055 !
00056 !
00057 !
00058 !
00059 !
00060 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00061 !| NOM            |-->| NAME OF VECTOR (OR SIMPLY A COMMENT).
00062 !| NPOIN          |-->| NUMBER OF POINTS.
00063 !| VEC            |-->| VECTOR TO BE PRINTED.
00064 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00065 !
00066       IMPLICIT NONE
00067       INTEGER LNG,LU
00068       COMMON/INFO/LNG,LU
00069 !
00070 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00071 !
00072       INTEGER, INTENT(IN)           :: NPOIN
00073       DOUBLE PRECISION, INTENT(IN)  :: VEC(NPOIN)
00074       CHARACTER(LEN=32), INTENT(IN) :: NOM
00075 !
00076 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00077 !
00078       INTEGER IPOIN
00079 !
00080 !-----------------------------------------------------------------------
00081 !
00082       IF(LNG.EQ.1.OR.LNG.EQ.2) WRITE(LU,'(//,1X,A32,//)') NOM
00083 !
00084       IF(LNG.EQ.1.OR.LNG.EQ.2) THEN
00085         WRITE(LU,40) (IPOIN,VEC(IPOIN),IPOIN=1,NPOIN)
00086 40      FORMAT(7(1X,1I5,':',G13.5))
00087       ENDIF
00088 !
00089 !-----------------------------------------------------------------------
00090 !
00091       RETURN
00092       END

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