Parent Directory | Revision Log
First GPAMELA release on CVS
1 | cafagna | 3.1 | * |
2 | * $Id$ | ||
3 | * | ||
4 | * $Log$ | ||
5 | * | ||
6 | * | ||
7 | * optdata.inc | ||
8 | * | ||
9 | *CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown | ||
10 | *-- Author : | ||
11 | CHARACTER*(MXCHAR) FUNFLD,FUNPOS,FUNWGT | ||
12 | CHARACTER*10 VALTYP,PNTTYP | ||
13 | REAL VST(MXWIRE),VPLST(5) | ||
14 | LOGICAL EVALT,EVALD,EVALA | ||
15 | INTEGER NPOINT,NSWIRE,IOPT,NFLD,NPOS,NWGT,IENFLD,IENPOS,IENWGT | ||
16 | COMMON /OPTDAT/ VST,VPLST,NPOINT,NSWIRE,IOPT,NFLD,NPOS,NWGT, | ||
17 | - IENFLD,IENPOS,IENWGT,EVALT,EVALD,EVALA | ||
18 | COMMON /OPTCHR/ FUNFLD,FUNPOS,FUNWGT,VALTYP,PNTTYP |
ViewVC Help | |
Powered by ViewVC 1.1.23 |