c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c cc errcall routine ccc c cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc c subroutine errcall( k ) c if ( k .eq. 1 ) then write(6,*) ' NO FIT TYPE !!!!!!!' endif if ( k .eq. 2 ) then write(6,*) ' N .ge. NN check N ' endif if ( k .eq. 3 ) then write(6,1000) 1000 format(3x,'No parametr files for the ion ') endif stop end