| 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 |