1 2 3 4
subroutine perim (magrx,minrx,magry,minry) call gridal (magrx,minrx,magry,minry,0,0,5,1,1) return end