2016-12-19 23:26:16 +01:00
|
|
|
subroutine unit_l1(tl1,&
|
|
|
|
tl2, &
|
|
|
|
tktyp, &
|
|
|
|
tistart, &
|
|
|
|
tnrows, &
|
|
|
|
txjjxy, &
|
|
|
|
txjjz , &
|
|
|
|
txtt , &
|
|
|
|
tcountcol, &
|
|
|
|
tntrou, &
|
|
|
|
tisz, &
|
2018-01-28 11:05:08 +01:00
|
|
|
tfix_trou1, &
|
|
|
|
tfix_trou2, &
|
2018-01-27 12:41:48 +01:00
|
|
|
tfam1, &
|
2016-12-19 23:26:16 +01:00
|
|
|
tcol,tval)
|
|
|
|
implicit none
|
2018-01-28 11:05:08 +01:00
|
|
|
integer,INTENT(INOUT)::tistart, tnrows
|
|
|
|
integer,INTENT(INOUT)::tntrou, tisz
|
|
|
|
integer,INTENT(INOUT)::tfix_trou1, tfix_trou2
|
2018-01-27 12:41:48 +01:00
|
|
|
logical*1,INTENT(INOUT)::tfam1
|
2016-12-19 23:26:16 +01:00
|
|
|
integer::i
|
|
|
|
real*8,INTENT(INOUT)::tval(maxlien)
|
|
|
|
integer(kind=selected_int_kind(16)),INTENT(INOUT)::tcol(maxlien)
|
|
|
|
integer(kind=selected_int_kind(16)),INTENT(INOUT),dimension(tnrows)::tcountcol
|
|
|
|
integer(kind=selected_int_kind(16)),INTENT(INOUT)::tl1(maxlien),tl2(maxlien),tktyp(maxlien)
|
|
|
|
real*8,INTENT(INOUT)::txtt(maxlien),txjjz(maxlien),txjjxy(maxlien)
|
|
|
|
|
|
|
|
nrows = tnrows
|
|
|
|
provide nrows
|
|
|
|
do i=1,maxlien
|
|
|
|
l1(i)=tl1(i)
|
|
|
|
l2(i)=tl2(i)
|
|
|
|
ktyp(i)=tktyp(i)
|
|
|
|
xtt(i) = txtt(i)
|
|
|
|
xjjxy(i) = txjjxy(i)
|
|
|
|
xjjz (i) = txjjz (i)
|
|
|
|
enddo
|
|
|
|
ntrou = tntrou
|
|
|
|
isz = tisz
|
2018-01-27 12:41:48 +01:00
|
|
|
FAM1 = tfam1
|
2018-01-28 11:05:08 +01:00
|
|
|
fix_trou1 = tfix_trou1
|
|
|
|
fix_trou2 = tfix_trou2
|
2016-12-19 23:26:16 +01:00
|
|
|
tcol=0
|
|
|
|
tval=0d0
|
|
|
|
provide l1 l2 ktyp xtt xjjxy xjjz ntrou
|
|
|
|
!print *,"l1"
|
|
|
|
!print *,l1
|
|
|
|
!print *,"xjjz"
|
|
|
|
!print *,xjjz
|
2018-01-27 12:41:48 +01:00
|
|
|
!print *,FAM1
|
2016-12-19 23:26:16 +01:00
|
|
|
call unit(tistart, tcountcol,tcol,tval)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|