[Wien] the use of ! in the code of lapw1

[Wenmei]

Dear users,
 
I am very confused with some code from /SRC/lapw1. 
In the file of seclr4.F, there is code like the following
==============================================
#ifndef Parallel
!_COMPLEX       DO J = 1, NVAA+NLO
!_COMPLEX         DO I = 1, NVAA+NLO
!_COMPLEX          HS(I,J) = DCONJG(HS(I,J))
!_COMPLEX        END DO
!_COMPLEX        HSDIAG(J) = DCONJG(HSDIAG(J))
!_COMPLEX       END DO
#endif
===============================================
Also, there is code in the file as:
===============================================
#ifdef Parallel
      if(deschs(2).gt.0) then
!_REAL      CALL PDPOTRF('U',NVAA+NLO,S,1,1,DESCHS,INFO)
!_COMPLEX      CALL PZPOTRF('U',NVAA+NLO,S,1,1,DESCHS,INFO)
      end if
#else
!_REAL      CALL DPOTRF('U',NVAA+NLO,HS,HSROWS,INFO)
!_COMPLEX      CALL ZPOTRF('U',NVAA+NLO,HS,HSROWS,INFO)
#endif
========================================================
In Fortran, ! comments the content of the line it stands
However, here the ! in !_COMPLEX-like seems not to comment the code in the corresponding line
 
 
Any suggestion is appreciated
Thanks
 
Wenmei Ming
 



      ___________________________________________________________ 
  好玩贺卡等你发，邮箱贺卡全新上线！ 
http://card.mail.cn.yahoo.com/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://zeus.theochem.tuwien.ac.at/pipermail/wien/attachments/20090210/e3cffcf1/attachment.html