对白金泽书上自定义材料程序的一些疑问

roy8069

自定义材料程序附在附件里面
是书上第三个自定义材料程序
程序里面

      if(time.LE.dt1) then
    do 101 i=1,cm(11)
          CALL RANDOM(ran)
101     enddo
      endif

     if(time.LE.dt1) then
        CALL RANDOM(ran)
        hisv(5)=cm(5)*(-1.0*log(ran))**(1.0/wb1)   
     endif

这里的dt1指的是什么？ 在子程序参数里面是没有这个参数的
另外， 为什么要得到随机数要使用这个循环， 这里cm（11）值是20000， 也就是循环20000次才得到一个随机数。并且接着又一个CALL RANDOM(ran)。 到底是为什么？ 如果说20000是单元数， 但是子程序是针对每个单元的， 跟其他单元没有什么关系啊。不用第一个if块不行吗？
  
望对自定义材料感兴趣的朋友商量一下。 msn：roy8069@hotmail.com