subroutine AXISLW (ixy,intlen,intnos,ixorn,iyorn) c c draws an axis (x or y) from the given origin (ixorn,iyorn) c c ixy=0 : draw y axis c ixy=1 : draw x axis c intlen is the length of each interval (between sub-divisions) c intnos is the number of intervals c c c terminator c logical*1 pltcmd(40) c call scopy ( '=##' , pltcmd) c call sendw ( pltcmd , 3) c c move to origin call lgo('M',ixorn,iyorn) c c draw axis call axl(ixy,intlen,intnos) c return end