Changeset bd2278d for INCP.H

Timestamp:

09/05/08 11:49:42 (16 years ago)

Author:

baerbaer <baerbaer@…>

Branches:

master

Children:

fafe4d6

Parents:

2ebb8b6

Message:

Reformatting comments and continuation marks.

Fortran 90 and higher use ! to mark comments no matter where they are in the
code. The only valid continuation marker is &.
I also added the SMMP.kdevelop.filelist to the repository to make it easier
to use kdevelop.

git-svn-id: ​svn+ssh://svn.berlios.de/svnroot/repos/smmp/trunk@12 26dc1dd8-5c4e-0410-9ffe-d298b4865968

File:

• INCP.H (modified) (1 diff)

INCP.H

@@ -1 @@
-c ......................
-c contents of a PDB file
-c ......................
+! ......................
+! contents of a PDB file
+! ......................
 
       parameter (MXCHP =100,    ! max. no. of polypeptide chains
-     #           MXRSP =1000,   ! max. no. of residues
-     #           MXATP =10000)  ! max. no. of atoms
+     &           MXRSP =1000,   ! max. no. of residues
+     &           MXATP =10000)  ! max. no. of atoms
 
-c   nchp      - no. of polypeptide chains
-c   nchrsp()  - no. of residues / chain
-c   nrsp      - total no. of residues
-c   irsatp()  - index of 1st atom / res.
-c   nrsatp()  - no. of atoms / res.
-c   natp      - total no. of selected atoms
-c   noatp()   - atom numbers
+!   nchp      - no. of polypeptide chains
+!   nchrsp()  - no. of residues / chain
+!   nrsp      - total no. of residues
+!   irsatp()  - index of 1st atom / res.
+!   nrsatp()  - no. of atoms / res.
+!   natp      - total no. of selected atoms
+!   noatp()   - atom numbers
 
       common /pdb_i/ nchp,nchrsp(MXCHP),
-     #               nrsp,irsatp(MXRSP),nrsatp(MXRSP),
-     #               natp,noatp(MXATP)
+     &               nrsp,irsatp(MXRSP),nrsatp(MXRSP),
+     &               natp,noatp(MXATP)
       save /pdb_i/
 
-c   chnp()  - chain identifiers
-c   rsidp() - residue identifiers (number + insertion code)
-c   rsnmp() - residues (sequence, 3-letter code)
-c   atnmp() - atom names
+!   chnp()  - chain identifiers
+!   rsidp() - residue identifiers (number + insertion code)
+!   rsnmp() - residues (sequence, 3-letter code)
+!   atnmp() - atom names
 
       character chnp(MXCHP),
-     #          rsidp(MXRSP)*5,rsnmp(MXRSP)*3,
-     #          atnmp(MXATP)*4
+     &          rsidp(MXRSP)*5,rsnmp(MXRSP)*3,
+     &          atnmp(MXATP)*4
 
       common /pdb_c/ chnp,rsnmp,rsidp,atnmp
       save /pdb_c/
 
-c     xatp,yatp,zatp - atom coordinates
+!     xatp,yatp,zatp - atom coordinates
 
       common /pdb_r/ xatp(MXATP),yatp(MXATP),zatp(MXATP)
       save /pdb_r/
 
-c ------------------- code to list all PDB information
-c      ir=0
-c      do i=1,nchp
-c        write(*,*) ' ===== chain |',chnp(i),'|'
-c        do j=1,nchrsp(i)
-c          ir=ir+1
-c          write(*,*) ' ----- ',rsidp(ir),' ',rsnmp(ir),' ',nrsatp(ir)
-c          k1=irsatp(ir)
-c          k2=k1+nrsatp(ir)-1
-c          do k=k1,k2
-c            write(*,*) ' ',noatp(k),' ',atnmp(k),' ',(xyzp(l,k),l=1,3)
-c          enddo
-c        enddo
-c      enddo
+! ------------------- code to list all PDB information
+!      ir=0
+!      do i=1,nchp
+!        write(*,*) ' ===== chain |',chnp(i),'|'
+!        do j=1,nchrsp(i)
+!          ir=ir+1
+!          write(*,*) ' ----- ',rsidp(ir),' ',rsnmp(ir),' ',nrsatp(ir)
+!          k1=irsatp(ir)
+!          k2=k1+nrsatp(ir)-1
+!          do k=k1,k2
+!            write(*,*) ' ',noatp(k),' ',atnmp(k),' ',(xyzp(l,k),l=1,3)
+!          enddo
+!        enddo
+!      enddo