real(kind=8) :: yp1,ypn,yp,x,y,muca_ene !,muca_factor
!el local variable
real(kind=8) :: emuca_alloc(4*maxres),nemuca_alloc(4*maxres)
real(kind=8) :: yp1,ypn,yp,x,y,muca_ene !,muca_factor
!el local variable
real(kind=8) :: emuca_alloc(4*maxres),nemuca_alloc(4*maxres)
- use control_data, only: modecalc,mucadyn,maxprocs
+ use control_data, only: modecalc,mucadyn !,maxprocs
! include 'COMMON.SETUP'
! include 'COMMON.IOUNITS'
real(kind=8) :: yp1,ypn,yp,x,y !,muca_ene,muca_factor
! include 'COMMON.SETUP'
! include 'COMMON.IOUNITS'
real(kind=8) :: yp1,ypn,yp,x,y !,muca_ene,muca_factor