bug fix proc.f90