source:
trunk/crs97/x.f
@
1
| Last change on this file since 1 was 1, checked in by cbipsl, 18 years ago | |
|---|---|
| File size: 317 bytes | |
| Line | |
|---|---|
| 1 | program x |
| 2 | external MolCodes |
| 3 | type Molecules |
| 4 | sequence |
| 5 | character*10 Name |
| 6 | integer(2) Mcode |
| 7 | integer N1(4) |
| 8 | end type Molecules |
| 9 | type (Molecules) ListofMol |
| 10 | Common /Reg9/ ListofMol |
| 11 | c |
| 12 | ListofMol%Name="bidon" |
| 13 | ListofMol%Mcode=127 |
| 14 | ListofMol%N1(1)=-1 |
| 15 | ListofMol%N1(4)=-4 |
| 16 | c print *,ListofMol%Name |
| 17 | call Codes |
| 18 | end |
Note: See TracBrowser
for help on using the repository browser.
