Update pswo.f90