24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

秋雨子

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 1578.8
散金: 13
帖子: 163
在线: 78.2小时
虫号: 1027042
注册: 2010-05-24
专业: 理论环境化学

[求助] homo和lumo批量提取的脚本

最近在弄一批分子，一万个左右，想提取其中的homo和lumo能量值，但是发现很难实现，因为才接触脚本半年，还是自学的，所以搞不定了，有哪位大侠给个小脚本？我只会一点shell，提取个Energy还行，homo和lumo不好提取，若可以分享一下不胜感激！

回复此楼

» 猜你喜欢

QE利用声子计算的一系列lambda和Tc如何选已经有8人回复
理论计算合作已经有4人回复
物理化学论文润色/翻译怎么收费? 已经有183人回复
小木虫的论文辅导靠谱吗？有没有用过的同学？已经有1人回复
QE计算声子ph.out的Γ点出现虚频（-30cm-1）vasp计算没有已经有0人回复
40-50万/年，中国散裂中子源诚聘计算模拟方向博士后已经有81人回复
书籍求助：汽车市场营销理论与实务（电子版）——章小平已经有0人回复
[电子教材]天津大学物理化学（第七版）上、下册已经有1人回复
东方理-中科大联合博士生招聘已经有0人回复
阴离子交换膜电解二氧化碳还原已经有0人回复

» 本主题相关商家推荐: (我也要在这里推广)

To the time to life, rather than to life in time

1楼 2011-12-05 22:47:40

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

ZDBWHZ

金虫 (正式写手)

应助: 7 (幼儿园)
金币: 1882
红花: 7
帖子: 736
在线: 228.7小时
虫号: 655151
注册: 2008-11-15
专业: 理论和计算化学

再来个Fortran
PROGRAM HOLU2
!
! Program to extract HOMO and LUMO data from multiple Gaussian output files
! SRK 2011/06/30
! SRK 2011/10/18 Modified to produce 3 output files, bug fix
!
! Input : A file containing a list of filenames, one per line
! Output:  One line per input filename, 3 columns, holding the filename, the HOMO and the LUMO
!       Input filename, HOMO and LUMO are written to file 'HOMOandLUMO.txt'
!       HOMO is written to file 'HOMO.txt'
!       LUMO is written to file 'LUMO.txt'
!
IMPLICIT NONE
! Variable declarations
INTEGER, PARAMETER :: inunit=22, listunit=23 ! Unit numbers for input files and list file
INTEGER, PARAMETER :: hlunit=24, hunit=25, lunit=26 ! Unit numbers for output files
INTEGER :: i       ! Loop variable
INTEGER :: n       ! Number of characters in current line
INTEGER :: stat    ! Holds the current state of the input file, 0=OK
INTEGER :: numfiles ! Number of filenames detected in the input
INTEGER :: blockflag  ! Flag variable to find the correct HOMO-LUMO data
CHARACTER (LEN=100) :: listname ! File containing the list of filenames to be processed
CHARACTER (LEN=100) :: inpfile  ! Current input filename
CHARACTER (LEN=100) :: line    ! Current line in the input file
CHARACTER (LEN=100) :: prevline ! Previous line in the input file
CHARACTER (LEN=9) :: homostring, lumostring ! Strings containing the HOMO/LUMO eigenvalues

!
! Executable code

WRITE (*,*) 'HOLU - a program to extract HOMO and LUMO data'
WRITE (*,*) 'Enter the name of an input file containing a list of filenames (no blank lines!)'
READ (*,'(A)') listname
OPEN(listunit,FILE=listname)
!
! Find out how many files are in the list
numfiles = 0
stat = 0
DO
READ(listunit,'(A)',iostat=stat) line
IF (stat /= 0) EXIT
numfiles = numfiles + 1
END DO
CLOSE(listunit)
WRITE (*,*) 'Detected ',numfiles,' lines in list file'

!
! Open output files
OPEN(hlunit,FILE='HOMOandLUMO.txt')
OPEN(hunit,FILE='HOMO.txt')
OPEN(lunit,FILE='LUMO.txt')

! Now loop over these files
OPEN(listunit,FILE=listname)
DO i = 1, numfiles
READ(listunit,'(A)') inpfile
OPEN(inunit,file=TRIM(inpfile))
blockflag = 0
!
! Search for the needed information in the input file
prevline = ''
DO
   READ(inunit,FMT='(A)',IOSTAT=stat) line ! Read in the next line of the file using '(A)' format
   IF (stat /= 0 ) EXIT
   IF (index(line,'Alpha virt.') > 0 ) THEN ! found a line listing virtual states
      IF (blockflag == 0) blockflag = 1
      IF (blockflag == 2) THEN                   ! we have found the second block
         lumostring = line(30:40)                ! first number on this line
         n = len_trim(prevline)
         homostring = prevline(n-8:n)          ! last number on previous line
         WRITE(*,*) TRIM(inpfile),' ', 'HOMO', ' ', homostring,' ', 'LUMO', ' ', lumostring
         WRITE(hlunit,'(A),(A),(A),(A)') TRIM(inpfile),' ', 'HOMO', ' ', homostring,' ', 'LUMO', ' ', lumostring
         WRITE(hunit,'(A)') TRIM(inpfile),' ', 'HOMO', ' ', homostring
         WRITE(lunit,'(A)') TRIM(inpfile),' ', 'LUMO', ' ', lumostring
         EXIT
      END IF
   ELSE
      IF (blockflag == 1) blockflag = 2
   END IF
   prevline = line
END DO
CLOSE(inunit)
END DO

! Close all files that are still open
CLOSE(listunit)
CLOSE(hlunit)
CLOSE(hunit)
CLOSE(lunit)

!
END PROGRAM HOLU2
这是source code,需要编译。
编译后，`ls -l *.log | awk '{print $9}' > file_list
再运行编译后的程序，输入文件就是file_list。所有的输出结果都显示在屏幕上，可以拷入txt文档，进行后续的计算。