call set_param('ROTA',RHOANG)
!axis and begin vector substitution
! first one
! axis
call set_param('FXAV',AVEC(1,1))
call set_param('FYAV',AVEC(2,1))
call set_param('FZAV',AVEC(3,1))
! 2nd axis and 3rd axis
call set_param('FXA2',CU(4,1))
call set_param('FYA2',CU(5,1))
call set_param('FZA2',CU(6,1))
call set_param('FXA3',CU(7,1))
call set_param('FYA3',CU(8,1))
call set_param('FZA3',CU(9,1))
! begin
call set_param('FXBE',BVEC(1,1))
call set_param('FYBE',BVEC(2,1))
call set_param('FZBE',BVEC(3,1))
! end
call set_param('FXEN',EVEC(1,1))
call set_param('FYEN',EVEC(2,1))
call set_param('FZEN',EVEC(3,1))
! center
call set_param('FXCE',RBAR(1,1))
call set_param('FYCE',RBAR(2,1))
call set_param('FZCE',RBAR(3,1))
! boundary
CALL set_param('FLBO',LDOT(1))
CALL set_param('FUBO',UDOT(1))
!
call set_param('FXPR',PRVEC(1,5,1))
call set_param('FYPR',PRVEC(2,5,1))
call set_param('FZPR',PRVEC(3,5,1))