Commit d9382c1e authored by Daniel Wortmann's avatar Daniel Wortmann

Small correction to avoid problems with PGI compiler

parent 120e3739
......@@ -42,8 +42,8 @@ CONTAINS
TYPE(t_tlmplm),INTENT(INOUT) :: tlmplm
LOGICAL,INTENT(IN) :: l_real
REAL, OPTIONAL,INTENT (INOUT) :: aa_r(:)!(matsize)
COMPLEX, OPTIONAL,INTENT (INOUT) :: aa_c(:)
REAL, ALLOCATABLE, OPTIONAL,INTENT (INOUT) :: aa_r(:)!(matsize)
COMPLEX,ALLOCATABLE, OPTIONAL,INTENT (INOUT) :: aa_c(:)
! ..
! .. Local Scalars ..
COMPLEX axx,bxx,cxx,dtd,dtu,dtulo,ulotd,ulotu,ulotulo,utd,utu, utulo,chihlp
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment