open_tempfile.F File Reference

#include "implicit_f.inc"
#include "task_c.inc"

Go to the source code of this file.

Macros
#define	T_FORMATED   1
#define	T_DIRECT_120   2

Functions/Subroutines
subroutine	open_f_scratch_file (fd, acces_type, rootn, lenrootn, filn)

Macro Definition Documentation

T_DIRECT_120

#define T_DIRECT_120   2

T_FORMATED

#define T_FORMATED   1

Function/Subroutine Documentation

open_f_scratch_file()

subroutine open_f_scratch_file	(	integer, intent(in)	fd,
		integer, intent(in)	acces_type,
		character(len=lenrootn), intent(in)	rootn,
		integer, intent(in)	lenrootn,
		character(len=10192), intent(out)	filn )

Definition at line 32 of file open_tempfile.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C    ACCESS TYPES - File format
C T_FORMATED : FORM=FORMATED
#define  T_FORMATED 1  
C T_DIRECT : FORM=DIRECT_120 RECL=120
#define  T_DIRECT_120   2
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
        INTEGER, INTENT(IN) :: FD
        INTEGER, INTENT(IN)  :: LENROOTN
        CHARACTER(LEN=LENROOTN),INTENT(IN) :: ROOTN
        CHARACTER(LEN=10192),INTENT(OUT) :: FILN
        INTEGER,INTENT(IN) ::  ACCES_TYPE
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
        INTEGER MY_PID,TLEN
        CHARACTER(LEN=4096) TMPDIR
        CHARACTER(LEN=20) :: CPID,CISPMD
        CHARACTER(LEN=5) :: CFD
C-----------------------------------------------
        CALL my_getpid(my_pid)
        tlen=4096
 
        tmpdir='' 
        CALL tmpenvf(tmpdir,tlen)
        
        WRITE(cpid,'(I10.10)') my_pid
        WRITE(cispmd,'(I6.6)') ispmd
        WRITE(cfd,'(I2.2)') fd
#ifdef _WIN64
        filn=tmpdir(1:tlen)//'\\'//trim(cfd)//'_'//rootn(1:lenrootn)//'_'//trim(cpid)//'_'//trim(cispmd)//'.tmp'
#else
        filn=tmpdir(1:tlen)//'/'//trim(cfd)//'_'//rootn(1:lenrootn)//'_'//trim(cpid)//'_'//trim(cispmd)//'.tmp'
#endif
C       Create tempo file
        IF (acces_type == t_formated ) THEN
 
          OPEN(unit=fd,form='FORMATTED',file=trim(filn))  
 
        ELSEIF (acces_type == t_direct_120 ) THEN
 
          OPEN(unit=fd,form='FORMATTED',access='DIRECT',recl=120,file=trim(filn)) 
        ENDIF