complex*16 H(ldh,m), wsp(lwsp) | |
double precision jj | |
double complex complex | |
double complex*16 j2 | |
doubleprecision kk | |
doublecomplex doublecomplex | |
doublecomplex*16 k2 | |
double complex :: n | |
complex l | |
complex :: m | |
integer a /3/ | |
integer b /4/, c /6/ | |
goto 10 | |
10 assign 30 to next | |
do 300 h=1,2 | |
print *, "!" | |
end do | |
end |