write_db.F File Reference

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

Go to the source code of this file.

Functions/Subroutines
subroutine	write_db (a, n)
subroutine	write_db_array (a, n)
subroutine	write_dpdb (a, n)

Function/Subroutine Documentation

write_db()

subroutine write_db	(		a,
		integer	n )

Definition at line 141 of file write_db.F.

C Writing Reel 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
            DO j = 1, 1000
              k=k+1
              r4(j) = a(k)
            ENDDO
            CALL write_db_c(r4,1000)
          ENDDO
          n2=n1*1000
          IF(n2/=n)THEN
            DO j = 1, n-n2
              k=k+1
              r4(j) = a(k)
            ENDDO
            CALL write_db_c(r4,n-n2)
          ENDIF
        ELSE
C Fortran Double precision: 64 bits C'double: 64 bits
          DO i = 1, n1
            DO j = 1, 1000
              k=k+1
              r8(j) = a(k)
            ENDDO
            CALL write_db_c(r8,1000)
          ENDDO
          n2=n1*1000
          IF(n2/=n)THEN
            DO j = 1, n-n2
              k=k+1
              r8(j) = a(k)
            ENDDO
            CALL write_db_c(r8,n-n2)
          ENDIF
        ENDIF
C
        RETURN

write_db_array()

subroutine write_db_array	(		a,
		integer	n )

Definition at line 219 of file write_db.F.

C Writing Reel 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
            DO j = 1, 1000
              k=k+1
              r4(j) = a(k)
            ENDDO
            CALL write_db_array_c(r4,1000)
          ENDDO
          n2=n1*1000
          IF(n2/=n)THEN
            DO j = 1, n-n2
              k=k+1
              r4(j) = a(k)
            ENDDO
            CALL write_db_array_c(r4,n-n2)
          ENDIF
        ELSE
C Fortran Double precision: 64 bits C'double: 64 bits
          DO i = 1, n1
            DO j = 1, 1000
              k=k+1
              r8(j) = a(k)
            ENDDO
            CALL write_db_c(r8,1000)
          ENDDO
          n2=n1*1000
          IF(n2/=n)THEN
            DO j = 1, n-n2
              k=k+1
              r8(j) = a(k)
            ENDDO
            CALL write_db_c(r8,n-n2)
          ENDIF
        ENDIF
C
        RETURN

write_dpdb()

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

Definition at line 303 of file write_db.F.

C Writing Reel 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
          DO j = 1, 1000
            k=k+1
            r8(j) = a(k)
          ENDDO
          CALL write_db_c(r8,1000)
        ENDDO
        n2=n1*1000
        IF(n2/=n)THEN
          DO j = 1, n-n2
            k=k+1
            r8(j) = a(k)
          ENDDO
          CALL write_db_c(r8,n-n2)
        ENDIF
C
        RETURN