#!/bin/csh -v
# $MDOCS/splus/triangulate/triangulate/load.csh 5/21/96

# before running load.csh
#	chmod 775 load.csh
#	put a copy of triangulate.f in local directory
#	put a copy of triangulate.s in local directory
alias splus /cedrvol/splus/Splus
module load GNU/initial
module load lang
setenv MDOCS /CEDRCD/data1/merrill/docs

rm triangulate.o
splus COMPILE triangulate.f # does not work in cedr for user selvin
nm -g triangulate.o |grep " U "

#nm -g /usr/lib/lib*.a |grep 'T   _rand_' |wc -l
#nm -g /vol/lic/SUNWspro/lib/lib*.a |grep 'T   _sinf' |wc -l
#nm -g /vol/lic/SUNWspro/lib/lib*.a |grep 'T   _cosf' |wc -l

nm -g /usr/lib/libm.a |grep 'T   _rand_' |wc -l
# 1 found
nm -g /vol/lic/SUNWspro/lib/libm.a |grep 'T   _sinf' |wc -l
# 1 found
nm -g /vol/lic/SUNWspro/lib/libm.a |grep 'T   _cosf' |wc -l
# 1 found

ar x /usr/lib/libm.a rand_.o
ar x /vol/lic/SUNWspro/lib/libm.a sinf.o cosf.o
ld -r -o triangulate2.o triangulate.o rand_.o sinf.o cosf.o

#nm -g /usr/lib/lib*.a |grep 'T   _initstate' |wc -l
#nm -g /usr/lib/lib*.a |grep 'T   _random' |wc -l
#nm -g /vol/lic/SUNWspro/lib/lib*.a |grep 'T   ___k_cosf' |wc -l
#nm -g /vol/lic/SUNWspro/lib/lib*.a |grep 'T   ___k_sinf' |wc -l
#nm -g /vol/lic/SUNWspro/lib/lib*.a |grep 'T   ___rem_pio2f_' |wc -l

nm -g /usr/lib/libc.a |grep 'T   _initstate' |wc -l
# 1 found
nm -g /usr/lib/libc.a |grep 'T   _random' |wc -l
# 1 found
nm -g /vol/lic/SUNWspro/lib/libm.a |grep 'T   ___k_cosf' |wc -l
# 1 found
nm -g /vol/lic/SUNWspro/lib/libm.a |grep 'T   ___k_sinf' |wc -l
# 1 found
nm -g /vol/lic/SUNWspro/lib/libm.a |grep 'T   ___rem_pio2f_' |wc -l
# 1 found

ar x /usr/lib/libc.a random.o
ar x /vol/lic/SUNWspro/lib/libm.a __rem_pio2f_.o __cosf.o __sinf.o
ld -r -o triangulate3.o triangulate2.o random.o __rem_pio2f_.o __cosf.o __sinf.o

nm -g /vol/lic/SUNWspro/lib/libm.a |grep 'D   __TBL_ipio2_inf' |wc -l
# 1 found
nm -g /vol/lic/SUNWspro/lib/libm.a |grep 'T   ___rem_pio2m' |wc -l
# 1 found

ar x /vol/lic/SUNWspro/lib/libm.a _TBL_ipio2.o __rem_pio2.o
ld -r -o triangulate4.o triangulate3.o _TBL_ipio2.o __rem_pio2.o

ar x /vol/lic/SUNWspro/lib/libm.a __rem_pio2m.o
ld -r -o triangulate5.o triangulate4.o __rem_pio2m.o

#splus
#dyn.load("triangulate5.o")
#source("triangulate.s")
#ptsinpoly
#ptsinpoly.test1
#ptsinpoly.test1() # works correctly
#ptsinpoly.test2
#ptsinpoly.test2() # works correctly
#ptsinpoly.test3
#sum(ptsinpoly.test3()) # works correctly
#ptinrect
#putinrect.test1() # works correctly
#ptinpoly
#xy_c(-1,-1,-1,1,1,1,1,-1)
#ptinpoly(  0,0,100,90,4,xy) # works correctly
#ptinpoly(-30,0,100,90,4,xy) # works correctly
#putcases
#putcases.test1() # works correctly