source:
PSPA/parmelaPSPA/trunk/indx.f
@
445
Last change on this file since 445 was 12, checked in by , 12 years ago | |
---|---|
File size: 189 bytes |
Line | |
---|---|
1 | integer function indx(x) |
2 | integer i |
3 | equivalence(i,y) |
4 | y=x |
5 | indx=i |
6 | return |
7 | end |
8 | c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++* |
Note: See TracBrowser
for help on using the repository browser.