1/SUBROUTINE mvnun/+1s/)/,/
2a
3     &                   infin, stdev, rho, nlower, nupper)
4.
5w
6