Sha256: 67e3846211939dffaf7a6295e12d52ec0f462dd34ca7c1fe6f5ecba1d2b49919
Contents?: true
Size: 637 Bytes
Versions: 213
Compression:
Stored size: 637 Bytes
Contents
module rna_transcription
contains
function complement(dna)
implicit none
character(*) :: dna
character(len(dna)) :: complement
integer :: i
do i = 1,len(dna)
select case (dna(i:i))
case ('G')
complement(i:i) = 'C'
case ('C')
complement(i:i) = 'G'
case ('T')
complement(i:i) = 'A'
case ('A')
complement(i:i) = 'U'
case default
complement = ''
return
end select
end do
end function complement
end module rna_transcription
Version data entries
213 entries across 213 versions & 1 rubygems