corrxy.f

Go to the documentation of this file.
00001 C:\opentelemac\v7p0\sources\utils\bief\corrxy.f
00002 !
00049                      SUBROUTINE CORRXY
00050 !                    *****************
00051 !
00052      & (X,Y,NPOIN)
00053 !
00054 !***********************************************************************
00055 ! BIEF   V6P3                                   21/08/2010
00056 !***********************************************************************
00057 !
00058 !
00059 !
00060 !
00061 !
00062 !
00063 !
00064 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00065 !| NPOIN          |-->| NUMBER OF POINTS IN THE MESH
00066 !| X              |<->| ABSCISSAE OF POINTS IN THE MESH
00067 !| X,Y            |<->| ORDINATES OF POINTS IN THE MESH
00068 !~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
00069 !
00070       USE BIEF, EX_CORRXY => CORRXY
00071 !
00072 !     OTHER DATA ARE AVAILABLE WITH THE DECLARATIONS OF EACH PROGRAM
00073 !
00074 !     USE DECLARATIONS_TELEMAC2D
00075 !
00076       IMPLICIT NONE
00077       INTEGER LNG,LU
00078       COMMON/INFO/LNG,LU
00079       INTEGER, INTENT(IN) :: NPOIN
00080       DOUBLE PRECISION, INTENT(INOUT) :: X(NPOIN),Y(NPOIN)
00081 !
00082 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00083 !
00084 !     THIS SUBROUTINE MUST BE MODIFIED ACCORDING TO
00085 !     THE CALLING PROGRAM AND THE NEEDED MODIFICATION
00086 !     BY ADDING USE DECLARATIONS_"NAME OF CALLING CODE"
00087 !     ALL THE DATA STRUCTURE OF THIS CODE IS AVAILABLE
00088 !
00089 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
00090 !
00091 !
00092 !-----------------------------------------------------------------------
00093 !
00094 !      EXAMPLE 1: MULTIPLIES BY A CONSTANT (SCALES THE MESH)
00095 !                 AND CHANGES THE ORIGIN
00096 !
00097 !      INTEGER I
00098 !
00099 !      DO I = 1 , NPOIN
00100 !        X(I) = 3.D0 * X(I) + 100.D0
00101 !        Y(I) = 5.D0 * Y(I) - 50.D0
00102 !      ENDDO
00103 !
00104 !
00105 !-----------------------------------------------------------------------
00106 !
00107 !      EXAMPLE 2: CHANGING LATITUDE-LONGITUDE IN DEGREES TO RADIANS
00108 !
00109 !      INTEGER I
00110 !      DOUBLE PRECISION DEGTORAD
00111 !      INTRINSIC ACOS
00112 !
00113 !      DEGTORAD=ACOS(-1.D0)/180.D0
00114 !      DO I = 1 , NPOIN
00115 !        X(I) = X(I) * DEGTORAD
00116 !        Y(I) = Y(I) * DEGTORAD
00117 !      ENDDO
00118 !
00119 !-----------------------------------------------------------------------
00120 !
00121 !     THIS SHOULD BE CHANGED IF MODIFICATIONS ARE DONE
00122 !
00123       IF(LNG.EQ.1) THEN
00124         WRITE(LU,*)'CORRXY (BIEF) : PAS DE MODIFICATION DES COORDONNEES'
00125         WRITE(LU,*)
00126       ENDIF
00127       IF(LNG.EQ.2) THEN
00128         WRITE(LU,*)'CORRXY (BIEF):NO MODIFICATION OF COORDINATES'
00129         WRITE(LU,*)
00130       ENDIF
00131 !
00132 !-----------------------------------------------------------------------
00133 !
00134       RETURN
00135       END

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