Parent Directory | Revision Log
First GPAMELA release on CVS
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 |