Case (2) ! Call MyModel3( IDTask, ... Case Default Write(1,*) 'invalid model number in UsrMod', iMod Write(1,*) 'IDTask: ',IDTask Stop 'invalid model number in UsrMod' iAbort=1 Return End Select ! iMod If (IDTask .EQ. 5 .AND. iel+int .EQ. 2) Then Write(1,*)'nSta...