& selectCoriMap,
INTEGER selectCoriMap
IF ( selectCoriMap.EQ.1 ) THEN
ELSEIF ( selectCoriMap.EQ.2 ) THEN
& .AND. selectCoriMap.GE.2
IF ( selectCoriMap.LT.0 .OR. selectCoriMap.GT.3 ) THEN
& 'Invalid option: selectCoriMap=', selectCoriMap
buffI(1) = selectCoriMap
IF ( selectCoriMap.EQ.3 ) THEN
IF ( selectCoriMap.EQ.0 ) THEN
ELSEIF ( selectCoriMap.EQ.1 ) THEN
IF ( selectCoriMap.EQ.-1 ) THEN
selectCoriMap = 1
selectCoriMap = 2
IF ( (selectCoriMap.EQ.0 .OR.selectCoriMap.EQ.1)
& selectCoriMap, f0, beta, fPrime, omega, rotationPeriod,
selectCoriMap = -1