[UP]

Manual Reference Pages  - codebase (3)

NAME
codebase(3f) - [M_strings:BASE] convert whole number in base 10 to string in base [2-36] (LICENSE:PD)

CONTENTS

Synopsis
Description
Example
Author
License

SYNOPSIS
logical function codebase(in_base10,out_base,answer) 

   integer,intent(in)           :: in_base10
   integer,intent(in)           :: out_base
   character(len=*),intent(out) :: answer

DESCRIPTION
Convert a number from base 10 to base OUT_BASE. The function returns too big.

The letters A,B,...,Z represent 10,11,...,36 in the base > 10.

EXAMPLE

Sample program: 

   program demo_codebase
   use M_strings, only : codebase
   implicit none
   character(len=20) :: answer
   integer           :: i, j
   logical           :: ierr
   do j=1,100
      do i=2,36
         ierr=codebase(j,i,answer)
         write(*,*)’VALUE=’,j,’ BASE=’,i,’ ANSWER=’,answer
      enddo
   enddo
   end program demo_codebase

AUTHOR
John S. Urban 

    Ref.: "Math matiques en Turbo-Pascal by
           M. Ducamp and A. Reverchon (2),
           Eyrolles, Paris, 1988".
based on a F90 Version By J-P Moreau (www.jpmoreau.fr)

LICENSE
Public Domain

codebase (3) March 11, 2021
Generated by manServer 1.08 from cf802b1f-62ef-46ac-bfe7-43e229043d72 using man macros.