You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
30 lines
1.2 KiB
30 lines
1.2 KiB
2 years ago
|
C Copyright(C) 1999-2020 National Technology & Engineering Solutions
|
||
|
|
C of Sandia, LLC (NTESS). Under the terms of Contract DE-NA0003525 with
|
||
|
|
C NTESS, the U.S. Government retains certain rights in this software.
|
||
|
|
C
|
||
|
|
C See packages/seacas/LICENSE for details
|
||
|
|
|
||
|
|
subroutine screrr(iunit, filin, lnam, name1, name2)
|
||
|
|
integer iunit, lnam
|
||
|
|
character*(*) filin, name1, name2
|
||
|
|
character*32 tmpstr
|
||
|
|
|
||
|
|
write(tmpstr, *) 'fort.',iunit
|
||
|
|
call pckstr(1,tmpstr)
|
||
|
|
|
||
|
|
if (filin(:lnam) .eq. tmpstr(:lnam)) then
|
||
|
|
write (*,100) tmpstr(:lnam), name1, name2
|
||
|
|
100 format(
|
||
|
|
$'***********************************************************',/,
|
||
|
|
$'***********************************************************',/,
|
||
|
|
$' NOTE: The specified database is "',A,'"',/
|
||
|
|
$' This is usually the result of incorrectly running',/,
|
||
|
|
$' $ACCESS/bin/',A,' instead of $ACCESS/etc/',A,'.',//,
|
||
|
|
$' Please check your path and make sure that',/,
|
||
|
|
$' $ACCESS/etc precedes $ACCESS/bin.',/,
|
||
|
|
$'***********************************************************',/,
|
||
|
|
$'***********************************************************')
|
||
|
|
end if
|
||
|
|
return
|
||
|
|
end
|