source: PSPA/parmelaPSPA/trunk/indx.f @ 445

Last change on this file since 445 was 12, checked in by lemeur, 12 years ago

parmela pspa initial

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
8c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*
Note: See TracBrowser for help on using the repository browser.