read_db.F File Reference

#include "implicit_f.inc"
#include "scr05_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	read_db (a, n)
subroutine	read_db_array (a, n)
subroutine	read_dpdb (a, n)

Function/Subroutine Documentation

read_db()

subroutine read_db	(		a,
		integer	n )

Definition at line 89 of file read_db.F.

C Reading Real Number: wrapper Routine
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER N
C     REAL
        my_real
     .     a(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "scr05_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER I,J,K,N1,N2
        DOUBLE PRECISION R8(1000)
        REAL R4(1000)
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
        k=0
        n1=n/1000
        IF(icray==1)THEN
C Fortran Double precision: 128 bits C'double: 64 bits
C fortran real : 64 bits C double : 64 bits
          DO i = 1, n1
            CALL read_db_c(r4,1000)
            DO j = 1, 1000
              k=k+1
              a(k) = r4(j)
            ENDDO
          ENDDO
          n2=n1*1000
          IF(n2/=n)THEN
            CALL read_db_c(r4,n-n2)
            DO j = 1, n-n2
              k=k+1
              a(k) = r4(j)
            ENDDO
          ENDIF
        ELSE
C Fortran Double precision: 64 bits C'double: 64 bits
          DO i = 1, n1
            CALL read_db_c(r8,1000)
            DO j = 1, 1000
              k=k+1
              a(k) = r8(j)
            ENDDO
          ENDDO
          n2=n1*1000
          IF(n2/=n)THEN
            CALL read_db_c(r8,n-n2)
            DO j = 1, n-n2
              k=k+1
              a(k) = r8(j)
            ENDDO
          ENDIF
        ENDIF
C
        RETURN

read_db_array()

subroutine read_db_array	(		a,
		integer	n )

Definition at line 175 of file read_db.F.

C Reading Real Number: wrapper Routine
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER N
C     REAL
        my_real
     .  a(*)
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "scr05_c.inc"
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER I,J,K,N1,N2
        DOUBLE PRECISION R8(1000)
        REAL R4(1000)
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
        k=0
        n1=n/1000
        IF(icray==1)THEN
C Fortran Double precision: 128 bits C'double: 64 bits
C fortran real : 64 bits C double : 64 bits
          DO i = 1, n1
            CALL read_db_array_c(r4,1000)
            DO j = 1, 1000
              k=k+1
              a(k) = r4(j)
            ENDDO
          ENDDO
          n2=n1*1000
          IF(n2/=n)THEN
            CALL read_db_array_c(r4,n-n2)
            DO j = 1, n-n2
              k=k+1
              a(k) = r4(j)
            ENDDO
          ENDIF
        ELSE
C Fortran Double precision: 64 bits C'double: 64 bits
          DO i = 1, n1
            CALL read_db_array_c(r8,1000)
            DO j = 1, 1000
              k=k+1
              a(k) = r8(j)
            ENDDO
          ENDDO
          n2=n1*1000
          IF(n2/=n)THEN
            CALL read_db_array_c(r8,n-n2)
            DO j = 1, n-n2
              k=k+1
              a(k) = r8(j)
            ENDDO
          ENDIF
        ENDIF
C
        RETURN

read_dpdb()

subroutine read_dpdb	(	double precision, dimension(*)	a,
		integer	n )

Definition at line 252 of file read_db.F.

C Reading Real Number: wrapper Routine
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER N
        DOUBLE PRECISION A(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER I,J,K,N1,N2
        DOUBLE PRECISION R8(1000)
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
        k=0
        n1=n/1000
C Fortran Double precision: 64 bits C'double: 64 bits
        DO i = 1, n1
          CALL read_db_c(r8,1000)
          DO j = 1, 1000
            k=k+1
            a(k) = r8(j)
          ENDDO
        ENDDO
        n2=n1*1000
        IF(n2/=n)THEN
          CALL read_db_c(r8,n-n2)
          DO j = 1, n-n2
            k=k+1
            a(k) = r8(j)
          ENDDO
        ENDIF
C
        RETURN