mirror of
https://github.com/LCPQ/DEHam
synced 2024-07-30 09:04:19 +02:00
31 lines
897 B
Fortran
31 lines
897 B
Fortran
BEGIN_PROVIDER[integer,l1, (maxlien)]
|
|
&BEGIN_PROVIDER[integer,l2, (maxlien)]
|
|
&BEGIN_PROVIDER[integer,ktyp,(maxlien)]
|
|
&BEGIN_PROVIDER[real*8, xtt ,(maxlien)]
|
|
&BEGIN_PROVIDER[real*8, xjjz ,(maxlien)]
|
|
&BEGIN_PROVIDER[real*8, xjjxy,(maxlien)]
|
|
&BEGIN_PROVIDER[real*8, E,(maxlien)]
|
|
&BEGIN_PROVIDER[integer, ntrou]
|
|
&BEGIN_PROVIDER[integer, isz]
|
|
&BEGIN_PROVIDER[logical*1, FAM1]
|
|
&BEGIN_PROVIDER[integer, fix_trou1]
|
|
&BEGIN_PROVIDER[integer, fix_trou2]
|
|
implicit none
|
|
! integer::i
|
|
! open(unit=11,file="l1.dat",form="formatted")
|
|
! open(unit=12,file="l2.dat",form="formatted")
|
|
! open(unit=13,file="ktyp.dat",form="formatted")
|
|
! rewind(11)
|
|
! rewind(12)
|
|
! rewind(13)
|
|
! do i=1,42
|
|
! read(11,*)l1(i)
|
|
! print *,l1(i)
|
|
! read(12,*)l2(i)
|
|
! read(13,*)ktyp(i)
|
|
! enddo
|
|
! close(11)
|
|
! close(12)
|
|
! close(13)
|
|
END_PROVIDER
|