SUBROUTINE locwrite (cdfldn, pfield, kdimax, knulre, kflgre) 2LOCWT.3
C**** LOCWT.4
C ***************************** LOCWT.5
C * OASIS ROUTINE - LEVEL 0 * LOCWT.6
C * ------------- ------- * LOCWT.7
C ***************************** LOCWT.8
C LOCWT.9
C**** *locread* - Write binary field on unit knulre LOCWT.10
C LOCWT.11
C Purpose: LOCWT.12
C ------- LOCWT.13
C Write string cdfldn and array pfield on unit knulre LOCWT.14
C LOCWT.15
C** Interface: LOCWT.16
C --------- LOCWT.17
C *CALL* *locwrite (cdfldn, pfield, kdimax, knulre, kflgre)* LOCWT.18
C LOCWT.19
C Input: LOCWT.20
C ----- LOCWT.21
C cdfldn : character string locator LOCWT.22
C kdimax : dimension of field to be written LOCWT.23
C knulre : logical unit to be written LOCWT.24
C pfield : field array (real 1D) LOCWT.25
C LOCWT.26
C Output: LOCWT.27
C ------ LOCWT.28
C kflgre : error status flag LOCWT.29
C LOCWT.30
C Workspace: LOCWT.31
C --------- LOCWT.32
C None LOCWT.33
C LOCWT.34
C Externals: LOCWT.35
C --------- LOCWT.36
C None LOCWT.37
C LOCWT.38
C Reference: LOCWT.39
C --------- LOCWT.40
C See OASIS manual (1995) LOCWT.41
C LOCWT.42
C History: LOCWT.43
C ------- LOCWT.44
C Version Programmer Date Description LOCWT.45
C ------- ---------- ---- ----------- LOCWT.46
C 2.0 L. Terray 95/09/01 created LOCWT.47
C LOCWT.48
C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% LOCWT.49
C LOCWT.50
C* ---------------------------- Include files ----------------------- LOCWT.51
C LOCWT.52
c INCLUDE 'doctor.h' LOCWT.53
c INCLUDE 'unit.h' LOCWT.54
C LOCWT.55
C* ---------------------------- Argument declarations --------------- LOCWT.56
C LOCWT.57
REAL pfield(kdimax) LOCWT.58
CHARACTER*8 cdfldn LOCWT.59
C LOCWT.60
C* ---------------------------- Poema verses ------------------------ LOCWT.61
C LOCWT.62
C %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% LOCWT.63
C LOCWT.64
C* 1. Initialization LOCWT.65
C -------------- LOCWT.66
C LOCWT.67
C LOCWT.68
C* Formats LOCWT.69
C LOCWT.70
1001 FORMAT(5X,' Write binary file connected to unit = ',I3) LOCWT.71
C LOCWT.72
C 2. Find field in file LOCWT.73
C ------------------ LOCWT.74
C LOCWT.75
C* Write string LOCWT.76
WRITE (UNIT = knulre, ERR = 210) cdfldn LOCWT.77
C* Write associated field LOCWT.78
WRITE (UNIT = knulre, ERR = 210) pfield LOCWT.79
C* Writing done and ok LOCWT.80
kflgre = 0 LOCWT.81
GO TO 220 LOCWT.82
C* Problem in Writing LOCWT.83
210 kflgre = 1 LOCWT.84
220 CONTINUE LOCWT.85
C LOCWT.86
C LOCWT.87
C* 3. End of routine LOCWT.88
C -------------- LOCWT.89
C LOCWT.90
LOCWT.91
RETURN LOCWT.92
END LOCWT.93
LOCWT.94
*ENDIF LOCWT.95
LOCWT.96
LOCWT.97
LOCWT.98