21       integer l_work,k_work       ! Work space  local
65      1          l_work,k_work)) call errquit('tce_mod1: MA problem',0,
73      2          nbf,0.0d0,dbl_mb(k_work),range_g1)
77      1          dbl_mb(k_work),range_g1,
123       integer l_work,k_work       ! Work space  local
167      1          l_work,k_work)) call errquit('tce_moq1: MA problem',0,
175      2          nbf,0.0d0,dbl_mb(k_work),range_g1)
179      1          dbl_mb(k_work),range_g1,
226       integer l_work,k_work       ! Work space  local
270      1          l_work,k_work)) call errquit('tce_moo1: MA problem',0,
278      2          nbf,0.0d0,dbl_mb(k_work),range_g1)
282      1          dbl_mb(k_work),range_g1,
329       integer l_work,k_work       ! Work space  local
385      1          l_work,k_work)) call errquit('tce_mom1: MA problem',0,
393      2          nbf,0.0d0,dbl_mb(k_work),range_g1)
397      1          dbl_mb(k_work),range_g1,