00001
00002 c
00003 c Copyright (c) 1986,1987,1988,1989,1990,1991,1992,1993,
00004 c by Steve McMillan, Drexel University, Philadelphia, PA.
00005 c
00006 c All rights reserved.
00007 c
00008 c Redistribution and use in source and binary forms are permitted
00009 c provided that the above copyright notice and this paragraph are
00010 c duplicated in all such forms and that any documentation,
00011 c advertising materials, and other materials related to such
00012 c distribution and use acknowledge that the software was developed
00013 c by the author named above.
00014 c
00015 c THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
00016 c IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
00017 c WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
00018 c
00019
00020
00021 subroutine fr numbr(r,s,h,x,t,n)
00022 save
00023 common/fr plain/iplain/fr bare/ibare
00024 common/fr wts/iwts(4)/fr pens/ipens(3)
00025 common/dev status/idevon,idevpen,idevwt
00026 integer*4 n
00027 common/debug trace/itrace
00028 c
00029 if(iwts(2).lt.0.or.iwts(3).lt.0)return
00030 if(itrace.eq.1)write(2,*)'fr numbr:',r,s,h,x
00031 if(ipens(2).gt.0)then
00032 jpen=idevpen
00033 call pen(ipens(2))
00034 end if
00035 if(ibare.eq.1)then
00036 call numbr(r,s,h,x,t,n)
00037 else
00038 if(iplain.eq.0)then
00039 call nomber(r,s,h,x,t,n)
00040 else
00041 call nombr(r,s,h,x,t,n)
00042 end if
00043 end if
00044 if(ipens(2).gt.0)call pen(jpen)
00045 end
