subroutine
stfslb3
1
write(6,'(A)') "SUBROUTINE STFSLB3 IS OBSOLETE"
call qqexit(1)
return
end
subroutine stfslb3 1
write(6,'(A)') "SUBROUTINE STFSLB3 IS OBSOLETE"
call qqexit(1)
return
end
subroutine stfslb3 1
write(6,'(A)') "SUBROUTINE STFSLB3 IS OBSOLETE"
call qqexit(1)
return
end