应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » Monte Carlo » 【求助】求高人给我发一份GEMC的模拟程序
51/1返回列表
查看: 1086  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 模拟EPI ，点击这里进行查看
当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

flowerstudy

木虫 (正式写手)

[交流] 【求助】求高人给我发一份GEMC的模拟程序

小弟，最近在学习MC，觉得GEMC对我比较有用，可是在网上，我怎么都找不着。
如果有人有的话，能否给我发一份呢？万分感谢！
我的邮箱地址：zw198204@163.com
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2010-11-28 18:52:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qphll

金虫 (正式写手)
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
zh1987hs(金币+10):谢谢 2010-12-04 23:13:56
ghcacj(金币+3, 模拟EPI+1):精彩答疑 2010-12-06 12:16:56
答应过的事情, 虽然觉得其实对楼主帮助也不大. 因为我不可能给你写一个完整的GibbsMC, 如果你自己不努力去理解, 那么什么都是白搭.

这是大体结构. 按照需要填充就是了. 应该此贴不会再更新了.

文件名: GibbsMC.f90

文件内容如下:

PROGRAM MC

  USE global
  IMPLICIT NONE

  ! Local
  INTEGER :: ibox, iblock, istep
  INTEGER :: ts,tf,rate
  DOUBLE PRECISION :: engtst, virtst, engerr

  ! Initialize the random number generator
  CALL seed_random(idum)
  
  ! Read the input file
  CALL read_input

  ! Get the start time
  CALL system_clock(count=ts, count_rate=rate)

  ! Perform minimization
  CALL relax
  
  ! Calculate energy and virial
  DO ibox = 1,n_box
    CALL eng_total(ibox,energy(ibox),virial(ibox))
    CALL write_config(ibox,0)
  ENDDO
  
  ! Loop over the blocks
  DO iblock = 1,n_blocks
   
    ! Reset basic statistics
    CALL stats(1,0,0)

    ! Reset optional statistics  
    IF(opt .EQ. 1) CALL sample(1,0,0)  

    ! Loop over the steps per block
    DO istep = 1,n_steps
      
      ! Perform a trial move
      CALL trial_move(iblock,istep)
     
      ! Accumulate basic statistics
      CALL stats(2,iblock,istep)

      ! Accumulate optional statistics
      IF(opt .EQ. 1) call sample(2,iblock,istep)

    ! End loop over the steps per block
    ENDDO


    ! Average basic statistics for iblock
    CALL stats(3,iblock,0)

    ! Average optional statistics for iblock
    IF(opt .EQ. 1) call sample(3,iblock,0)

    ! Update the max values (disp, volchng, etc)
    CALL update_max

   
    ! Print status
    IF(iblock .LE. n_equil) THEN
      IF(iblock .EQ. 1) WRITE(*,'(A)')'Equilibration stage... '
      IF(MOD(NINT(100.0d0*DBLE(iblock)),10*n_equil) .EQ. 0)&
        &WRITE(*,'(I0,A3)')NINT(100.0d0*DBLE(iblock)/DBLE(n_equil)),'%  '
       IF(iblock .EQ. n_equil) WRITE(*,*)''
    ELSE
      IF(iblock .EQ. n_equil + 1)  WRITE(*,'(A)')'Production stage... '
      IF(MOD(NINT(100.0d0*DBLE(iblock-n_equil)),10*(n_blocks-n_equil)).EQ. 0)&
        &WRITE(*,'(I0,A3)')NINT(100.0d0*DBLE(iblock-n_equil)/DBLE(n_blocks-n_equil)),'%  '
      IF(iblock .EQ. n_blocks) WRITE(*,*)''
    ENDIF

    ! Check the total and updated energy consistency for each box (every 10 blocks)
    IF(MOD(iblock,1) .EQ. 0) THEN
      DO ibox = 1,n_box
        CALL eng_total(ibox,engtst,virtst)
         engerr = dABS((engtst - energy(ibox)))
        IF (engerr .GE. 1.0d-5) THEN
          WRITE(*,*) 'WARNING: LARGE ERROR BETWEEN THE TOTAL AND UPDATED ENERGY'
          WRITE(*,'(A7,I0,A6,I0,A10,F20.8,A10,F20.8)')&
          &'BLOCK: ',iblock,' BOX: ',ibox,' UPD ENG: ',energy(ibox),' TOT ENG: ',engtst
        ENDIF
      ENDDO
    ENDIF

  ! End loop over the blocks
  ENDDO


  ! Get the finish time
  CALL system_clock(count=tf, count_rate=rate)

  ! Write the elapsed time to screen
  CALL time_elapsed(tf,ts,rate)

  ! Write basic statistics
  CALL stats(4,0,0)

  ! Write optional statistics
  IF(opt .EQ. 1) CALL sample(4,n_blocks+1,0)

  ! Write the final configurations
  DO ibox = 1,n_box
    CALL write_config(ibox,n_blocks+1)
  ENDDO


END PROGRAM MC
赞一下(2人) 回复此楼
7楼2010-12-04 23:08:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答

zyj8119

木虫 (著名写手)
★ ★
ghcacj(金币+2):谢谢 2010-11-29 18:13:56
flowerstudy(金币+1): 2010-11-29 20:38:15
引用回帖:
Originally posted by flowerstudy at 2010-11-28 18:52:27:
小弟，最近在学习MC，觉得GEMC对我比较有用，可是在网上，我怎么都找不着。
如果有人有的话，能否给我发一份呢？万分感谢！
我的邮箱地址：zw198204@163.com

这个吉布斯系综蒙特卡罗模拟的程序，比较难找，很多组都是组内编写，不外传。
赞一下(1人) 回复此楼
2楼2010-11-29 00:01:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qphll

金虫 (正式写手)
★ ★
ghcacj(金币+2):谢谢 2010-11-29 18:14:05
flowerstudy(金币+1): 2010-11-29 20:38:20
引用回帖:
Originally posted by flowerstudy at 2010-11-28 18:52:27:
小弟，最近在学习MC，觉得GEMC对我比较有用，可是在网上，我怎么都找不着。
如果有人有的话，能否给我发一份呢？万分感谢！
我的邮箱地址：zw198204@163.com

没有人会这样给你的, 就算我有的话.

自己写吧, 有啥困惑的, 拿出来讨论.

研究这个路, 真没有捷径.
赞一下(1人) 回复此楼
3楼2010-11-29 09:50:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
引用回帖:
Originally posted by qphll at 2010-11-29 09:50:07:



没有人会这样给你的, 就算我有的话.

自己写吧, 有啥困惑的, 拿出来讨论.

研究这个路, 真没有捷径.

不过如果你知道GEMC的大概思路，可以帮人家写个伪代码，是吧？高人？
赞一下 回复此楼
4楼2010-12-02 10:47:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 8 个回答
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 k0dTPqJtl0jt 2026-08-14 3/150 2026-08-15 12:33 by KxMI1BYBxWX1
[考研] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +4 7lpolszZVXgi 2026-08-14 8/400 2026-08-15 11:53 by KxMI1BYBxWX1
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +3 HFw0lei2R37i 2026-08-14 5/250 2026-08-15 11:41 by KxMI1BYBxWX1
[教师之家] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +5 7lpolszZVXgi 2026-08-14 6/300 2026-08-15 09:28 by sunzitan
[考博] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 k0dTPqJtl0jt 2026-08-14 5/250 2026-08-15 04:45 by 4wMiSEwB6436
[公派出国] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 7lpolszZVXgi 2026-08-14 5/250 2026-08-15 04:41 by 4wMiSEwB6436
[找工作] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +4 k0dTPqJtl0jt 2026-08-14 4/200 2026-08-15 02:21 by 4wMiSEwB6436
[基金申请] 小木虫上这么多卖论文的，真有人买论文么？感觉没必要啊 +11 Tide man 2026-08-10 12/600 2026-08-15 02:12 by home3163
[硕博家园] 售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急 +3 k0dTPqJtl0jt 2026-08-14 4/200 2026-08-15 01:28 by 4wMiSEwB6436
[基金申请] 各位道友，我要去昆明玩几天，回来见。 +7 Tide man 2026-08-14 8/400 2026-08-15 01:11 by arzu_hma
[基金申请] 是这周出结果还是下周出结果？ +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[基金申请] 奇怪，两个人的filecode固定段从头到尾一模一样 +8 布布和一二 2026-08-10 11/550 2026-08-14 14:58 by Equinoxhua
[基金申请] 有时候，自然基金真的不能太认真 （我的申报经验） +6 majunge000 2026-08-11 8/400 2026-08-14 14:44 by 医学老男孩
[基金申请] 应该是93bebmhtak前后十一个字符比较关键 +23 Lanmanbaby 2026-08-09 37/1850 2026-08-14 13:40 by Equinoxhua
[硕博家园] 读博的好处 +4 lnee 2026-08-11 4/200 2026-08-14 10:20 by ahsoarli
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分？ +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 确定了，国自然21号放榜 +6 布布和一二 2026-08-10 7/350 2026-08-10 19:15 by 2000zf36392
[基金申请] 国自然结果 +4 Vierhys 2026-08-10 8/400 2026-08-10 15:06 by Vierhys
[基金申请] 面上项目filecode邪修 +5 西山十月 2026-08-09 7/350 2026-08-10 07:32 by 仁砚薪传
信息提示
关闭
请填处理意见
关闭