Lines Matching refs:tIN
420 subroutine copyTranspar(tIN, tOUT) argument
423 type(TTransPar), intent(in) :: tIN local
430 tOUT%defined = tIN%defined
431 tOUT%ncont = tIN%ncont
432 tOUT%idxdevice = tIN%idxdevice
433 tOUT%nPls = tIN%nPls
434 tOUT%taskUpload = tIN%taskUpload
435 tOUT%taskContInd = tIN%taskContInd
436 tOUT%tPeriodic1D = tIN%tPeriodic1D
437 if (allocated(tIN%PL)) then
438 isz = size(tIN%PL)
440 tOUT%PL = tIN%PL
442 if (allocated(tIN%contacts)) then
443 isz = size(tIN%contacts)
445 tOUT%contacts = tIN%contacts