1 |
guez |
3 |
! |
2 |
|
|
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/inc_cpl.h,v 1.2 2005/04/29 14:03:26 fairhead Exp $ |
3 |
|
|
! |
4 |
|
|
! |
5 |
|
|
! |
6 |
|
|
! -- inc_cpl.h 1998-04 |
7 |
|
|
! ********** |
8 |
|
|
!@ |
9 |
|
|
!@ Contents : variables describing pipe and field names |
10 |
|
|
!@ -------- |
11 |
|
|
!@ |
12 |
|
|
!@ -- cl_write : for fields to write |
13 |
|
|
!@ |
14 |
|
|
!@ -- cl_read : for fields to read |
15 |
|
|
!@ |
16 |
|
|
! ------------------------------------------------------------------- |
17 |
|
|
! |
18 |
|
|
INTEGER jpread, jpwrit |
19 |
|
|
PARAMETER (jpread=0, jpwrit=1) |
20 |
|
|
CHARACTER(len=8) cl_writ(jpmaxfld), cl_read(jpmaxfld) |
21 |
|
|
CHARACTER(len=8) cl_f_writ(jpmaxfld), cl_f_read(jpmaxfld) |
22 |
|
|
COMMON / comcpl / cl_writ, cl_read, cl_f_writ, cl_f_read |
23 |
|
|
! ------------------------------------------------------------------- |