Changeset 17 in ZHANGProjects for ICOSIM/CPP/trunk/source/crystalprotonfuns.f


Ignore:
Timestamp:
Sep 30, 2014, 11:05:33 AM (10 years ago)
Author:
zhangj
Message:

Added comments...

File:
1 edited

Legend:

Unmodified
Added
Removed

  • ICOSIM/CPP/trunk/source/crystalprotonfuns.f

    r15 r17  
    2828      save
    2929 
    30       write(*,*) "In RAN_GAUSS: "
     30c      write(*,*) "In RAN_GAUSS: "
    3131c      write(*,*) "flag = ",flag
    3232c      write(*,*) "U1 = ", U1,"U2 = ", U2
    … …  
    5353          RAN_GAUSS = x
    5454
    55           write(*,*) "ran_gauss = ", RAN_GAUSS
     55c          write(*,*) "ran_gauss = ", RAN_GAUSS
    5656
    5757        return
Note: See TracChangeset for help on using the changeset viewer.